home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / nshadow / ant.bas next >
Encoding:
BASIC Source File  |  1994-06-23  |  580 b   |  16 lines
  1. 5 PRINT "GAIN, DIRECTIVITY AND POWER DENSITY FOR A PARABOLIC ANTENNA."
  2. 6 PRINT
  3. 10 INPUT "WHAT IS THE DIAMETER OF THE PARABOLIC DISH IN FEET "; D
  4. 20 INPUT "WHAT IS THE FREQUENCY IN MHz "; F
  5. 30 L = F/(300*30.48)
  6. 40 GA = .55*(((355/113)*D)^2)/L
  7. 50 GI = 4.343*LOG(GA)
  8. 60 GD = GI - 2.15
  9. 70 PRINT "GAIN IN dB OVER A DIPOLE IS  "; GD
  10. 80 H = (70*L)/D
  11. 90 DD = 4.343*LOG(41253!/(H^2)) - 2.15
  12. 100 PRINT "DIRECTIVITY IN dB OVER A DIPOLE IS  "; DD
  13. 110 INPUT "WHAT IS THE AVERAGE POWER IN WATTS "; P
  14. 120 PD = 158.4 * .001 * P/(D^2)
  15. 130 PRINT "POWER DENSITY IN mW/cm^2 IS  "; PD
  16.